home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / b026.dir / 00076_smscr2.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  746 b   |  29 lines
  1. on pressCategoryButton
  2.   set spriteNum to the clickOn
  3.   set upCast to the castNum of sprite spriteNum
  4.   set downCast to the number of cast (the name of cast upCast & ".down")
  5.   puppetSprite(spriteNum, 1)
  6.   puppetSound("MouseDown.aif")
  7.   repeat while the mouseDown
  8.     if rollOver(spriteNum) then
  9.       set the castNum of sprite spriteNum to downCast
  10.     else
  11.       set the castNum of sprite spriteNum to upCast
  12.     end if
  13.     updateStage()
  14.   end repeat
  15.   if rollOver(spriteNum) then
  16.     startTimer()
  17.     repeat while the timer < 20
  18.       set the castNum of sprite spriteNum to downCast
  19.       updateStage()
  20.     end repeat
  21.     puppetSprite(spriteNum, 0)
  22.     updateStage()
  23.     set RollOn to 1
  24.   else
  25.     set RollOn to 0
  26.   end if
  27.   return RollOn
  28. end
  29.